home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP16.EXE / INTER_2.PAS < prev   
Pascal/Delphi Source File  |  1991-01-11  |  522b  |  26 lines
  1. program Lecteurencours;
  2. uses Crt,Dos;
  3. var
  4.   Regs: Registers;
  5.   Lect  : byte;
  6. begin
  7.   ClrScr;
  8.   write('Le lecteur en cours est ');
  9.   {---------Interrupt 21h (Fonction 19h)-------------}
  10.   Regs.ah:= $19;
  11.   MsDos(Regs);
  12.   Lect:= Regs.al;
  13.   {-----------------Résultat-------------------------}
  14.   case Lect of
  15.     0: write('A:');
  16.     1: write('B:');
  17.     2: write('C:');
  18.     3: write('D:');
  19.     4: write('E:');
  20.     else write('Spécial');
  21.   end;
  22.   writeln;
  23.   writeln('Appuyez sur CR...');
  24.   readln;
  25. end.
  26.